home *** CD-ROM | disk | FTP | other *** search
/ Workplace Effectiveness: Critical Thinking Skills / Workplace Effectiveness: Critical Thinking Skills.iso / pc / Files / Ability.dxr / 00003_Navigation handlers.ls < prev    next >
Encoding:
Text File  |  1998-09-15  |  1.1 KB  |  39 lines
  1. global gMasterData, gSection, gAssessmentData
  2.  
  3. on goIntro
  4.   go(label("intro"))
  5.   goNarrator(gMasterData, "08")
  6.   set gSection to #intro
  7. end
  8.  
  9. on goQuestions
  10.   go("questions")
  11.   goNarrator(gMasterData, "09")
  12.   set gSection to #questions
  13.   if voidp(gAssessmentData) then
  14.     set gAssessmentData to [#questionNum: 1, #artSprite: 4, #triangleSp: 5, #clickChoices: [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
  15.   end if
  16.   if the questionNum of gAssessmentData <> 1 then
  17.     set the questionNum of gAssessmentData to 1
  18.   end if
  19.   puppetSprite(the artSprite of gAssessmentData, 1)
  20.   resetIndicator()
  21.   setFingerCursor(#on, [21, 22])
  22. end
  23.  
  24. on clearQuestions
  25.   puppetSprite(the artSprite of gAssessmentData, 0)
  26.   puppetSprite(the triangleSp of gAssessmentData, 0)
  27.   setFingerCursor(#off, [21, 22])
  28. end
  29.  
  30. on goresults
  31.   global gSection, balloonSprite
  32.   clearQuestions()
  33.   go("results")
  34.   evaluateAnswers()
  35.   set gSection to #results
  36.   goNarrator(gMasterData, "10")
  37.   activate(gMasterData)
  38. end
  39.